home *** CD-ROM | disk | FTP | other *** search
/ Aminet 30 / Aminet 30 (1999)(Schatztruhe)[!][Apr 1999].iso / Aminet / hard / drivr / ScanTrax.lha / ScanTrax / Register.bat < prev    next >
DOS Batch File  |  1998-09-11  |  9KB  |  384 lines
  1. ; ScanTrax Register-Script $VER: ScanTrax register-script V1.3 ©1998 Klaus Krause
  2. (set #novice 0)
  3. (set #average 1)
  4. (set #expert 2)
  5.  
  6. (user #average)
  7. (complete 0)
  8.  
  9. (set #germ (= @language "deutsch"))
  10. (set #engl (= #germ 0))
  11.  
  12. (if #germ (set @abort-button "Registrierung abbrechen"))
  13. (if #engl (set @abort-button "Abort registration"))
  14.  
  15. (if #germ (set #loctxt (cat
  16. "\nVielen Dank, daß Sie sich Registrieren möchten.\n"
  17. )))
  18.  
  19. (if #engl (set #loctxt (cat
  20. "\nMany thanks, that you want register.\n"
  21. )))
  22.  
  23. (message #loctxt)
  24.  
  25.  
  26. (if #germ (set #loctxt (cat
  27. "\nEs folgen einige Fragen zu Ihrer Adresse...\n"
  28. )))
  29.  
  30. (if #engl (set #loctxt (cat
  31. "\nSome questions about your address follows...\n"
  32. )))
  33.  
  34. (message #loctxt)
  35.  
  36.  
  37. ;--------------------------------------------------------------------------------------
  38. ;find out personal registration data
  39.  
  40. (set #emptystring5  "_____")
  41. (set #emptystring10 "__________")
  42. (set #emptystring15 "_______________")
  43. (set #emptystring25 "_________________________")
  44.  
  45.  
  46.  
  47. (if #germ
  48.     (
  49.         (set #p_firstname  "    Vorname           : ")
  50.         (set #p_secondname "    Nachname          : ")
  51.         (set #p_street     "    Strasse           : ")
  52.         (set #p_zipcode    "    Postleitzahl      : ")
  53.         (set #p_town       "    Stadt             : ")
  54.         (set #p_country    "    Land              : ")
  55.         (set #p_email      "    E-Mail            : ")
  56.  
  57.         (set #myhardware   "    Meine Hardware:\n")
  58.         (set #p_scanner    "    Scanner           : ")
  59.         (set #p_Amiga      "    Amiga             : ")
  60.         (set #p_CPU        "    CPU               : ")
  61.         (set #p_GfxCard    "    Grafikkarte       : ")
  62.  
  63.         (set #p_emailkey    "    Ich möchte mein Keyfile per E-Mail erhalten J/N : ")
  64.         (set #p_airmaildisk "    Ich möchte eine Programmdiskette erhalten J/N   : ")
  65.         (set #yes "JA")
  66.         (set #no "NEIN")
  67.     )
  68. )
  69.  
  70. (if #engl
  71.     (
  72.         (set #p_firstname  "    First name        : ")
  73.         (set #p_secondname "    Last name         : ")
  74.         (set #p_street     "    Street            : ")
  75.         (set #p_zipcode    "    Zip (postal) Code : ")
  76.         (set #p_town       "    Town              : ")
  77.         (set #p_country    "    Country           : ")
  78.         (set #p_email      "    E-mail            : ")
  79.  
  80.         (set #myhardware   "    My hardware:\n")
  81.         (set #p_scanner    "    Scanner           : ")
  82.         (set #p_Amiga      "    Amiga             : ")
  83.         (set #p_CPU        "    CPU               : ")
  84.         (set #p_GfxCard    "    Graphic card      : ")
  85.  
  86.         (set #p_emailkey    "    I would like to get my keyfile by e-mail Y/N : ")
  87.         (set #p_airmaildisk "    I would like to get a program floppydisk Y/N : ")
  88.         (set #yes "YES")
  89.         (set #no "NO")
  90.     )
  91. )
  92.  
  93.  
  94.  
  95. (set #firstname
  96.     (askstring
  97.         (prompt #p_firstname)
  98.         (help @askstring-help)
  99.     )
  100. )
  101.  
  102. (set #secondname
  103.     (askstring
  104.         (prompt #p_secondname)
  105.         (help @askstring-help)
  106.     )
  107. )
  108.  
  109. (set #street
  110.     (askstring
  111.         (prompt #p_street)
  112.         (help @askstring-help)
  113.     )
  114. )
  115.  
  116. (set #zipcode
  117.     (askstring
  118.         (prompt #p_zipcode)
  119.         (help @askstring-help)
  120.     )
  121. )
  122.  
  123. (set #town
  124.     (askstring
  125.         (prompt #p_town)
  126.         (help @askstring-help)
  127.     )
  128. )
  129.  
  130. (set #country
  131.     (askstring
  132.         (prompt #p_country)
  133.         (help @askstring-help)
  134.     )
  135. )
  136.  
  137. (set #email
  138.     (askstring
  139.         (prompt #p_email)
  140.         (help @askstring-help)
  141.     )
  142. )
  143. (complete 25)
  144.  
  145. (message
  146.     (if #germ "Es folgen Fragen zu Ihrer verwendeten Hardware...\n")
  147.     (if #engl "Questions about your used hardware follows...\n")
  148. )
  149.  
  150. (set #scanner
  151.     (askstring
  152.         (prompt #p_scanner)
  153.         (help @askstring-help)
  154.     )
  155. )
  156. (set #Amiga
  157.     (askstring
  158.         (prompt #p_Amiga)
  159.         (help @askstring-help)
  160.     )
  161. )
  162. (set #CPU
  163.     (askstring
  164.         (prompt #p_CPU)
  165.         (help @askstring-help)
  166.     )
  167. )
  168. (set #GfxCard
  169.     (askstring
  170.         (prompt #p_GfxCard)
  171.         (help @askstring-help)
  172.     )
  173. )
  174. (complete 50)
  175.  
  176. (if (> (strlen #email) 0)
  177.     (
  178.         (if #germ (set #loctxt "Ich möchte mein \"Keyfile\" per E-Mail erhalten!\n"))
  179.         (if #engl (set #loctxt "I would get my \"keyfile\" by e-mail!\n"))
  180.         (set #bool_emailkey
  181.             (askchoice
  182.                 (prompt #loctxt)
  183.                 (help @askchoice-help)
  184.                 (choices #no #yes)
  185.                 (default 1)
  186.             )
  187.         )
  188.     )
  189.     (
  190.         (set #bool_emailkey 0)
  191.     )
  192. )
  193.  
  194. (if #bool_emailkey
  195.     (
  196.         (if #germ (set #loctxt "Sie haben sich für E-Mail entschieden.\n Wollen Sie zusätzlich auch noch eine Programmdiskette erhalten?\n"))
  197.         (if #engl (set #loctxt "You have choosen e-mail. Do you want to get additional a program floppydisk?\n"))
  198.         (set #bool_airmaildisk
  199.             (askchoice
  200.                 (prompt #loctxt)
  201.                 (help @askchoice-help)
  202.                 (choices #no #yes)
  203.                 (default 0)
  204.             )
  205.         )
  206.     )
  207.     (
  208.         (set #bool_airmaildisk 1)
  209.     )
  210. )
  211.  
  212. (if #bool_emailkey
  213.     (set #emailkey #yes)
  214.     (set #emailkey #no)
  215. )
  216.  
  217. (if #bool_airmaildisk
  218.     (set #airmaildisk #yes)
  219.     (set #airmaildisk #no)
  220. )
  221.  
  222.  
  223. ;make blank lines on empty fields
  224. (if (= #firstname "")
  225.     (if (= #secondname "")
  226.         (
  227.             (set #emailkey #emptystring5)
  228.             (set #airmaildisk #emptystring5)
  229.         )
  230.     )
  231. )
  232. (if (= #firstname "")  (set #firstname  #emptystring15))
  233. (if (= #secondname "") (set #secondname #emptystring15))
  234. (if (= #street "")     (set #street     #emptystring25))
  235. (if (= #zipcode "")    (set #zipcode    #emptystring10))
  236. (if (= #town "")       (set #town       #emptystring15))
  237. (if (= #country "")    (set #country    #emptystring15))
  238. (if (= #email "")      (set #email      #emptystring15))
  239.  
  240. (if (= #scanner "")    (set #scanner    #emptystring15))
  241. (if (= #Amiga "")      (set #Amiga      #emptystring15))
  242. (if (= #CPU "")        (set #CPU        #emptystring15))
  243. (if (= #GfxCard "")    (set #GfxCard    #emptystring15))
  244.  
  245.  
  246. (if #engl (set #header1 (cat
  247. "\n"
  248. "                      ScanTrax Registration Form\n"
  249. "                      --------------------------\n\n\n"
  250. "    I would like to become a registered user.\n"
  251. "    I have read the chapters and \"Registration\" and \"Copyright\"\n"
  252. "    in the manual and agree with these.\n"
  253. )))
  254.  
  255. (if #germ (set #header1 (cat
  256. "\n"
  257. "                   ScanTrax Registrierungs Formular\n"
  258. "                   --------------------------------\n\n\n"
  259. "    Ich möchte registrierter Benutzer werden.\n"
  260. "    Ich habe die Abschnitte \"Registrierung\" und \"Copyright\"\n"
  261. "    im Manual gelesen und stimme diesen zu.\n"
  262. )))
  263.  
  264. (if #germ (set #signline (cat
  265. "\n"
  266. "                      -------------------------\n"
  267. "                        (Hier Unterschreiben)\n"
  268. )))
  269. (if #engl (set #signline (cat
  270. "\n"
  271. "                      -------------------------\n"
  272. "                             (Sign here)\n"
  273. )))
  274.  
  275. (if #engl (set #end1 (cat
  276. "    Put into an envelope this registration form and\n"
  277. "    20 US-Dollar or 30 Deutsche-Mark.\n\n"
  278. "    Post your registration form to:\n\n"
  279. "       Klaus Krause\n"
  280. "       Bergstedter Chaussee 233\n"
  281. "       D-22395 Hamburg\n"
  282. "       -GERMANY-\n"
  283. )))
  284.  
  285. (if #germ (set #end1 (cat
  286. "    Nimm einen Umschlag, lege 30 Deutsche Mark und dieses\n"
  287. "    Registrierungsformular hinein.\n\n"
  288. "    Versende Deine Registrierung an:\n\n"
  289. "       Klaus Krause\n"
  290. "       Bergstedter Chaussee 233\n"
  291. "       D-22395 Hamburg\n"
  292. "       -GERMANY-\n"
  293. )))
  294.  
  295.  
  296.  
  297. ;build final form
  298. (set #finaltext (cat
  299.     #header1 "\n"
  300.     #p_firstname #firstname "\n\n"
  301.     #p_secondname #secondname "\n\n"
  302.     #p_street #street "\n\n"
  303.     #p_town #town "\n\n"
  304.     #p_zipcode #zipcode "\n\n"
  305.     #p_country #country "\n\n"
  306.     #p_email #email "\n\n\n\n"
  307.     #signline "\n\n\n\n"
  308.     #myhardware "\n"
  309.     #p_scanner #scanner "\n\n"
  310.     #p_Amiga #Amiga "\n\n"
  311.     #p_CPU #CPU "\n\n"
  312.     #p_GfxCard #GfxCard "\n\n\n"
  313.     #p_emailkey #emailkey "\n\n"
  314.     #p_airmaildisk #airmaildisk "\n\n\n\n"
  315.     #end1
  316. ))
  317.  
  318. (complete 75)
  319.  
  320. ;save form
  321. (set #formulardir
  322.     (askdir
  323.         (if #germ (prompt "Wo möchten Sie Ihr\n Registrierungsformular \speichern?"))
  324.         (if #engl (prompt "Were do you want to save your\n registration-form?"))
  325.         (help @askdir-help)
  326.         (default "")
  327.         (disk)
  328.     )
  329. )
  330.  
  331. ;confirm print
  332. (if #germ (set #loctxt "Wollen Sie Ihre Registrierung sofort ausdrucken?\n"))
  333. (if #engl (set #loctxt "Do you want to print your registration now?\n"))
  334. (set #bool_print
  335.     (askchoice
  336.         (prompt #loctxt)
  337.         (help @askchoice-help)
  338.         (choices #no #yes)
  339.         (default 0)
  340.     )
  341. )
  342.  
  343. ;set filename
  344. (if #germ (set #filename "Registrierung.form"))
  345. (if #engl (set #filename "Registration.form"))
  346. (set @app-name #filename)
  347. (set @default-dest #formulardir)
  348.  
  349. ;save form
  350. (textfile
  351.     (dest (tackon #formulardir #filename))
  352.     (append #finaltext)
  353.     (confirm)
  354. )
  355. ;make form icon
  356. (set #iconname "Register.icon")
  357. (if (exists #iconname (noreq))
  358.     (copyfiles
  359.         (source #iconname)
  360.         (dest #formulardir)
  361.         (newname (cat #filename ".info"))
  362.         (files)
  363.         (nogauge)
  364.     )
  365. )
  366.  
  367. ;print form
  368. (if #bool_print
  369.     (textfile
  370.         (dest "PRT:")
  371.         (append #finaltext)
  372.         (confirm)
  373.     )
  374. )
  375.  
  376. (complete 100)
  377.  
  378. ;last words
  379. (if #engl (exit "End of registration!\n\n Thank you"))
  380. (if #germ (exit "Ende der Registrierung!\n\n Vielen Dank"))
  381.  
  382. (set @default-dest #formulardir)
  383. (welcome)
  384.